if (!$a)			# The ! is the not operator
{
	print "The string is empty\n";
}
elsif (length($a) == 1)		# If above fails, try this
{
	print "The string has one character\n";
}
elsif (length($a) == 2)		# If that fails, try this
{
	print "The string has two characters\n";
}
else				# Now, everything has failed
{
	print "The string has lots of characters\n";
}